#!/bin/sh
# GR journal finder. (c) Steve Braham
#
#..	To support an ISINDEX type search, set search string if given
#	an argument on the command line
#

emailfile="/usr/local/lib/addresses/grpersons"
safeit="/usr/local/http/support/safeitgr"
unescape="/usr/local/http/support/unescape"


    if [ $# -gt 0 ]; then 
	PREFIX="search="
    fi
#
#..	Check that a query has been made
#
    if [ $QUERY_STRING ]; then

#
#..		Strip the variables out from the query string,
#		and assign them into the environment, prefixed by 'QS_'
#
#		 o sed removes any ' that would upset quoted assignment
#
#		 o awk ensures that 
#			- all variables passed have legal names
#			- special characters are not interpreted by sh
#
# First a security strip search
	SAFE_QUERY=`$safeit QUERY_STRING`

	eval `echo $PREFIX$SAFE_QUERY | sed -e 's/'"'"'/%27/g' |awk '
		BEGIN{RS="&";FS="="; seclist = ""}
		$1~/^[a-zA-Z][a-zA-Z0-9_]*$/ {
			printf "QS_%s=%c%s%c\n",$1,39,$2,39}' `
#
#..		Output header
#
cat << EOM
Content-type: text/html


<TITLE>GR Journal search output</TITLE>
<h1><img alt="" src=http:/hyperspace/journal.gif>Search Results</h1>
EOM


# Unescape search string, extract first word. Further safety check.

allpars=`$unescape  "$QS_search"`
export allpars
allpars=`$safeit allpars`
firstpar=`echo "$allpars"|awk '{print $1}'`
export firstpar
firstpar=`$safeit firstpar`


# Now set search type. (regex or plain)
# A single unknown will be interpreted as an ISINDEX search with
# a plain search, case insensitive.

case $QS_method in
	advanced) searcher=egrep ;;
	simple) searcher=fgrep ;;
	*) searcher=fgrep ;;
esac

case $QS_case in
	sensitive) sea="$searcher" ;;
	insensitive) sea="$searcher -i" ;;
	*) sea="$searcher -i" ;;
esac


#ok, do it	

$sea "$allpars" $emailfile |fgrep "ZZ"|sed -e 's/ZZ //g' -e 's/, /,\&/g' -e 's/\&Z /\&Z\&/g'| awk -F\& '
BEGIN { found = "0"}
found == "0" {
	print "Matches found.";
	print "<i>Click on highlighted areas";
	print "for institution mail addresses.</i><hr>";
	found = "1"}
NF == "7" {print "<b>", $2, "/ "$1 , "</b>"   " <i>"$7"</i>",  "   _____  ", $3, "<a href=http://www.theory.physics.ubc.ca/wbin/GRaddress?"$5"+"$6">", $5" "$6, "</a><br>"; next }
{print "<b>", $2, "/ "$1 , "</b>"   " <i>"$6"</i>",  "   _____  ", $3, "<a href=http://www.theory.physics.ubc.ca/wbin/GRaddress?"$5">", $5, "</a><br>"  }
END { if (found == "0") {
	print "Sorry, no information found for: <i>"sstring"</i>.<p>"
	print "Can attempt"
	print "<a href=http://www.theory.physics.ubc.ca/wbin/GRpeople?"fword">people</a> or"
	print "<a href=http://www.theory.physics.ubc.ca/wbin/GRaddress?"fword">address</a>"
	print "search for <i>"fword"</i>."}
	}' fword="$firstpar" sstring="$allpars"

cat <<EOE
<hr><i>New</i> Searches:<p>
<a href=http:/hyperspace/GRpeople.html>
<img alt="" src=http://www.theory.physics.ubc.ca/hyperspace/people.gif>
<b>GR People</b></a>

<a href=http://www.theory.physics.ubc.ca/wbin/GRjournal>
<img alt="" src=http://www.theory.physics.ubc.ca/hyperspace/journal.gif>
<b>GR Journal</b></a>

<a href=http:/hyperspace/GRaddress.html>
<img alt="" src=http://www.theory.physics.ubc.ca/hyperspace/address.gif>
<b>GR Address</b></a>

EOE


	else

#
#..		The script was called without a query. 
#		Provide an ISINDEX type response for browsers
#		without form support.
#

cat << EOM
Content-type: text/html

<TITLE>GRjournal Gateway</TITLE>
<H1>
<img alt="" src=http://www.theory.physics.ubc.ca/hyperspace/journal.gif>
General Relativity E-mail Addresses For Journals and Groups</H1>

<ISINDEX>

This is an interface into the General Relativity 
<a href=http://www.theory.physics.ubc.ca/hyperspace/grguide.html>
mailing address list</a>. This service is provided by the
<a href=http://www.theory.physics.ubc.ca/hyperspace/hyperspace.html#group>UBC</a>
GR group, but the list itself is kept by
<a href=http://www.theory.physics.ubc.ca/wbin/GRpeople?MacCallum>
Malcolm MacCallum</a>. 
This searches the mailing address list for various groups and
journals, corresponding to the "ZZ" type of
entries. Simply type the name of the journal or group that you
wish to find in the dialog box. <i>GRjournal</i> will then display any
entry that has that particular string in any field. Case is
not sensitive, and all matching entries will be
returned, <i>but only a single field will be matched.</i>
<hr>
<i>Or go to:</i><br>
<a href=http:/hyperspace/GRpeople.html>
<img alt="" src=http://www.theory.physics.ubc.ca/hyperspace/people.gif>
<b>GR People</b></a>

<a href=http:/hyperspace/GRaddress.html>
<img alt="" src=http://www.theory.physics.ubc.ca/hyperspace/address.gif>
<b>GR Address</b></a>

<a href=http://www.theory.physics.ubc.ca/hyperspace/>
<img alt="" src=http://www.theory.physics.ubc.ca/hyperspace/hyper.gif>
<b>HyperSpace</b></a>

EOM

fi

echo "<hr>"

ls -l $emailfile|awk '{
print "E-mail database last modified on "$5" "$6" "$7"."}'

echo "In case of problems, contact:
<a href=http:/mailmaster.html>
<address>The Web Master (theoryweb@physics.ubc.ca)</address></a>
software written by
<a href=/mailsteve.html>
<address>Steve Braham (braham@physics.ubc.ca)</address></a>"